home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD010b.dsk / LOW RES EXPANSION.bas < prev    next >
BASIC Source File  |  2003-06-12  |  681b  |  13 lines
  1. 100  GR 
  2. 200  COLOR=  PDL(0)/15
  3. 300  PLOT 20,20
  4. 400 A% = 19:B% = 21:C% = 19:D% = 19:E% = 21:F% = 21:G% = 19:H% = 21:I% = 19:J% = 19:K% = 21:L% = 21
  5. 450  COLOR=  PDL(0)/15
  6. 500  HLIN A%,B% AT C%: HLIN D%,E% AT F%: VLIN G%,H% AT I%: VLIN J%,K% AT L%
  7. 600 A% = A% -1:B% = B% +1:C% = C% -1:D% = D% -1:E% = E% +1:F% = F% +1:G% = G% -1:H% = H% +1:I% = I% -1:J% = J% -1:K% = K% +1:L% = L% +1
  8. 700  IF A% >0 GOTO 450
  9. 800  COLOR=  PDL(0)/15
  10. 850 :A% = A% +1:B% = B% -1:C% = C% +1:D% = D% +1:E% = E% -1:F% = F% -1:G% = G% +1:H% = H% -1:I% = I% +1:J% = J% +1:K% = K% -1:L% = L% -1
  11. 900  HLIN A%,B% AT C%: HLIN D%,E% AT F%: VLIN G%,H% AT I%: VLIN J%,K% AT L%
  12. 1000  IF A% <39 GOTO 800
  13. 1100  GOTO 200